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BEGIN 
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'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

is ALL RIGHTS RESERVED 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF such LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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® 
® 
® 
® 
® 
* 
® 
® 
' % 
ie TRANSFERRED. « 
® 
® 
* 
® 
® 
® 
® 
® 
® 
& 


f=f=) 
Oo: 


DWONOVUESWN—"OOONOULWwIN—O0@ 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
™ cappokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
H IS NOT SUPPLIED BY DIGITAL. 
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? 
CONVSSORT VAX=11 CONVERT 1$-50p-1986 23:48:01 VAX=11 BLiss-32 v4.0-7% p | 
you~000 yen eha} SR F3:F8i85 FEM GY ties 3a Nt. O sche age 5f 


| 
g 1 030 1 !++ 
; g 031 1! 
; ? O36 : Facility: VAX=-11 CONVERT 
; 5 4 1! Abstract: CONVERT routines wich sort the input file on the output 
; $ 23: files primary key and to sort the output file by it's 
3 § 1! secondary key 
; 8 oor | 3 
3 9 0 : 1 ! Contents: 
; 40 039 1! SORT_PRIMARY 
; 4) 040 1! SORT. SECONDARY 
; 4@ 041 1} SET_OP_SORT 
. beg 1! 
:; 6446 0045 1 ! Environment: 
; 6$ 0044 1! 
; 46 0045 1! VAX/VMS Operating System 
>; «647 B208 1! 
; 648 0047 1 !-- 
; «649 0048 1 
; 50 0049 1! 
ee) 0050 1 ! Author: Keith B Thompson Creation date: August-1980 
; 2¢ 0051 1! | 
ae. 8836 ' 3 
3; 694 0053 1 ! Modified by: 
3.06ClU«SSS 0054 1! 
3; 0055 1! v03-013 RASO272 Ron Schaefer 16-Mar-1984 
5 OT 0056 1! Allow peers to fastload/sort network files, now that 
3 8 tH : SORT-32 can handle them. 
Py H | 
; 60 0059 1! v03-012 RASO260 Ron Schaefer 6-Mar-1984 
3 6 Bpee : Modify input file specs for SORT for LIBSFIND_FILE. 
3 re: 2006 1! v03-011 KBT0502 Keith B. Teeapsen 19-Apr-1983 
3 3 Bpe7 \ : Remove reference to SORSM_SIGNAL 
; 66 0065 1! v03-010 KBT0467 Keith 8B. Thompson 21-Jan-1983 
3; (6OF 0066 1! Don't bother calling set_key_desc in sort pr isery because 
; 68 0067 1! we don't know if the file is still open for block io and 
: $° Bpe8 ’ : set_key_desc does a $read. Also use the new sort interface. 
7s 0070 1: V03-009 KBT0426 Keith 8. Thompson 30-Nov-1982 | 
; 0071 1! Fix a naming problem with the convert termorary file 
Be: Bn58 g and remove sort error routine to get ready for the new | 
8 ie 0074 ! } sort interface which will signal errors. | 
: 6 75 1! v03-008 KBT0393 Keith B. Thompson 29-0c t-1982 
3 As B08 ! Use new set_key_desc routine 
:; 79 A 1! v03-007 KBT0379 Keith B, Thompson 21-0ct-1982 | 
; 80 7 : Fix the Linkage definition to set_key_block 
3 8 si & v03-006 KBT0348 Keith B. Thompson 4-0ct-1982 
: ¢ :4 se new Linkage definitions (and fix history error 
3 : Bs ' : n cwh0001!) 
; «86 5 1! v03-005 CcwHO001 CW Hobbs 17-Aug-1982 
c oe 0086 1! Fix a history error in the last packet. 
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Bs =1984 23:48:01 AX-11 Bliss-32 V4.0-742 
4 300-1984 13:18:03 CICONVS 832;1 


- CONV.SR ORT .B32; 
v03-004 kBT0125 Keith 6. Thompson 10-Aug-1982 
Get the file name Length from RSL not RSS 
v03-003 KBT0045 Keith Thompson 9-Apr-1982 


Correct the way packed decimal sizes are given to sort 
Also fix when we do stable sorts ie. only with dups 


v03-002 KBT0027 Keith Thompson 30-Mar-1982 
Chain the sort error messages 
v03-001 KBT0014 Keith Thompson 17-Mar-1982 


Pass sort a irl so it will not choke on sys$input 
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SF 


PSECT 


MEW 


= _CONVSOWN 
= “CONVSGLOBAL 
PLIT = “CONVSPLIT 
= “CONVSCODE 


LIBRARY ‘SYSSLIBRARY:1 18.132"; 
LIBRARY *SRC$: CONVERT’; 


FORWARD ROUTINE 
CONVS$SORT 
CONVSSSORT 
SET_UP_SORT 

DEF INE_ERROR_CODES; 


EXTERNAL ROUTINE 


So 
ooo 


RIMARY 


Pp 
“SECONDARY 


a a Hd a 
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EXTERNAL 
CONVSGL_SORT 
CONVSGL~WORK_F 
CONVSAB_FLAGS 
CONVSAR_OUT_FILE_NAM 
CONVS$GB~ CURRENT FILE 
CONVSGW"MAX_REC_$12Z 


CONVSAB_IN_NAM 
CONVSAB~ IN 


CONV 
CONVSAB-OUT 
C OU 
CONVSAB_OUT_ 
EXTERNAL LITERAL 


SORSGK"ADDRESS, 
SORSGK~ INDEX; 
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AX-11 Bliss-32 V4.0-74 
CONV. SRCJCONVSORT .B32; 


NDARY, 
1 NOVALUE; 


: CLSGET_VM, 


CLSSET_KEY_DESC, 


ADDRESSING_MODE (GENERAL), 
ADDRESSING_MODE (GENERAL), 
ADDRESSING_MODE (GENERAL), 
ADDRESSING_MODE (GENERAL), 
ADDRESSING_MODE (GENERAL) ; 


LONG, 


: LONG, 
: BLOCK C ,BYTE J, 


: REF DESC_BLK, 
: BYTE, 


' Output File 


e SORT Temporary File Name Data 
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VAX=11 CONVERT 1-56 -$ep-1984 23:4 AX-11 Bliss-32 V4.0-74 
14- aa $3: +# 83 CONV. SRCJEONVSORT 632, 
CONV_TMP_STR = UPLIT Be) tr ! Convert Temp. File Name 
CONV_DEF _STR = UPLIT ("SYSSSCRATCH:.TMP’); | Default name 
LITERAL 
CON ~]mP $i = 8 
CONVIDEF “SIZ = 16; 
OWN 
CONV_TMP_DESC =: DESC_BLK, ! Convert temp. file desc. 
TEMP_DEST : DESC-BLK, i Expanded input file desc 
: Name block 
RFA_NAM : SNAM_DECL, ! RFA Name Block 


} The fop bits are: Truncate eof - so to shrink file on multiple sorts 

efered write - of course 

Create if - We know sort is doing a create but we 
have created the file Ter him 
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op : LONG INITIAL( FABSM_TEF+FABSM_DFW+FABSM_CIF ), 
ILETYPE : BYTE, 

ECORDFMT : BYTE: 

ECORDS12Z : WORD; 

GLOBAL 

CONVSGL_RFA_BUFFER : LONG, ! Pointer to RFA Buffer 
: Work Files 
CONVSAB_RFA_FAB : SFAB_DECL, ! RFA File FAB 
CONVSAB_RFA_RAB : SRAB_DECL; ! RFA File RAB 


tt 
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Functional Description: 

Initializes the rfa rms blocks which are used for sorting 
Calling Sequence: 

INIT_SORT() 


we 


Input Parameters: 
none 


Side Effects: 


| 

| 

| 

| 

Implicit Inputs: 
none 

Clears the CONVSV_SORTINIT flag 
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10 

1} 

13 

14 1 

15 1 Output Parameters: 
18 : none 

18 1 Implicit Outputs: 
1 : none 

1 ; Routines Called: 

§ CONVSSGET_VM 
5 Routine Value: 

$ none 

8 

9 
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BYTES 
vM_POINTER; 


: If sort has already been initialized then exit 
iF NOT ~CONVSAB_FLAGS C CONVSV_SORTINIT | 
BEGIN | 

| 

| 

| 
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CONVSAB_FLAGS C CONVSV_SORTINIT J] = _SET; 

: Allocate name block buffers and the rfa buffer 
BYTES = ESA_BUF_SIZ + RSA_BUF_SIZ + RFA_BUF_SIZ; 
CONVSGL_RFA_BUFFER = CONVSSGET_VM( .BYTES ); 
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_— 15-Sep-1984 $3:48:0) AX-11 Ot ieee 


14-Sep-1 
VA_POINTER = .CONVSGL_RFA_BUFFER + RFA_BUF_SIZ; 
; Init the name block 


CONV. SRC 


SNAM_INIT ( NAM = RFA_NAM, 
ESA = .VM~POINTER, 
ESS = ESA-BUF SIZ, 
RSA = .VM_POINTER + ESA_BUF_SIZ, 
RSS = RSA_BUF_SIZ ); 
! Init the FAB 
SFAB_INIT ( FAB = CONVSAB RFA_FAB, 
DNA = DEF _STR, 
DNS = CONY-DEF “317. 
FAC = <BRO.GETS 
FNA = CONV_TMP_STR, 
FNS = CONV-TMP "SIZ, 
FOP = <cBT S005. 
NAM = RFA_NAM ) 
t Init the RAB 
SRAB_INIT ( RAB = CONVSAB_RFA_RAB, 
FAB = CONVSAB_RFA_FAB, 
ROP = B10, 
UBF = .CONVSGL_RFA_BUFFER, 
USZ2 = RFA_BUF_SIZ J 
END; 
Set the record format and the record size 
CONVSAB_ RFA_FAB { FABSB_RFM -RECORDFMT; 


CONVSAB_RFA_FAB C FABSW_MRS = RECORDSIZ: 

. Clear the delete flag so that we don't delete the temp file this time 
CONVSAB_RFA_FAB C FABSV_DLT J = _CLEAR; 

: Signal create error 

CONVSAB_RFA_FAB C FABSL_CTX J = CONVS_CREA_ERR; 

! Create the file $0. that we oe Logical name direction to work and 


‘ we pass a good file name to s 


ScREATEC FAB=CONVSAB_RFA_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 
SCLOSE( FAB=CONVSAB_RFA_FAB ); 


agin the 2 Glew flag so that we get rid of the temp file the next time 
i 


CONVSAB_RFA_FAB C FABSV_DLT ) = _SET; 
! Stuff the expanded file name into the tempory file descriptor 


} 
voe-000, INIT .SORT WEsieec9Hs G34E:8) Wal eB fttadfott 0s ae 


3 11 ‘ 
; 31 CONV_TMP_DESC { DSCSW_LENGTH ] = .RFA_NAM C_N RSL J; 
; 18 CONV-TMP~DESC : DSCSA-POINTER ]) =". RFK_NAM C NAMSC_RSA 3; 
: 315 1 RETURN 
3 1§ 1 
: 31 1 END; 
TITLE CONySSORT VAX=11 CONVERT 
-PSECT _CONVSPLIT,NOWRT,NOEXE, SHR, PIC,2 
48 4F 57 56 GE 4F & 000 P.AAA: .ASCII \CONVWORK\ ; 
4D 56 26 3A 48 43 S& 41 3$ 43 53 3 ey 59 $3 09008 P.AAB: .ASCII \SYSS$SCRATCH:.TMP\ : 


-PSECT _CONVSGLOBAL,NOEXE, PIC,2 
00000 CONVSGL_RFA BUFFER: : 
00004 CONVSAB_RFA_FAB:: 
-BLRB 80 
00054 CONVSAB_RFA_RAB:: 
-BLRB 68 
-PSECT _CONVSOWN,NOEXE, PIC,2 


00000 CONV_TMP_DESC: 


. 8 
00008 TEMP_DESC: 
0010 RFALNAM:.BLKB 96 
12000020 00070 FOP? = -LONG 301989920 : 
0074 FILETYPE: 
00075 RECORDFMT: 
.BLKB 1 
00076 RECORDSIZ: 
-BLKB 2 
CONV_TMP_STR= P.AAA 
CONV DEF =STR= P.AAB 
RMS"PTR= REA_NAM 
SRMS~PTR= CONVSAB_RFA_FAB 
SRMS~PTR= CONVSAB-RFA-RAB 
-EXTRN CONVERTS_FACILITY 
“EXTRN CONVS_FAO_MAX, CONVS BADBLK 
“EXTRN CONV$"BADCOGIC, CONVS_BADSORT 
SEXTRN CONV$~CONFQUAL. CONVS-CREATEDSTM 
SEXTRN CONVS"CREA_ERR. CONVS-DELPRI 
EXTRN CONVS"DUP, ~CONVS EXTNERR 
“EXTRN CONVS$~FATALEXC, CONys FILLIM 
“EXTRN CONVS“IDX_LIM. CONV TLL_KE 
SEXTRN CONVS"ILL “VALUE 
SEXTRN CONVSTINPTFILES 
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voo-b00, = INIT. SORT WESepct9es GEH8:0) YAS BLSesedZo 052 
JEXTRN NSVIRMEM 


ONS: NVBKT, CONVS_KEY 
a =KEYREF nner LOADIDX 


x 
¥ $.N 
XTRN conve “NOK q CONvS, NOTIDX 
XTRN CONVS-NOTSEG, CONVS NOWILD 
XTRN CONV ORDER cONVS OPENexe 
x 

x 


TRN CONV NIN vS_OPENOUT 
TRN CONV “PAD C Pt 
TRN CONV$-PROERR Me PROL_WRT 
XTRN CONV$ “READE R, CONVS_RSK 
XTRN CONV RSZ. CONVS$_RTL 
XTRN CONVS-RTS. CONV$-SEG 
XTRN CONVS_UDF_B8KS, cONvs UDF _BLK 
XTRN CONVS VCS CONV WRITEERR 
XTRN CONVSSGET_VM, CORVSSOPEN_IN 
RN CONVSSRMS~OPEN_ ERROR 
XTRN CONVSSSET-KEY_BESC 
XTRN CONVSSSEARCH FIL 
XTRN LIBSPUT_OUTPOT, SORSBEGIN SORT 
XTRN SORSPASS_ FILES, SORSSORT_PERGE 
XTRN SORSEND_SORT, Conv VSGL SORT 
XTRN CONVSGL-WORK.F, CONVSAB_FLAGS 
TRN CONVSAR-OUT FILE NAM 
XTRN CONVSGB_CURRENT FILE 
XTRN CONVSGL_ COON 
XTRN CONVSGWIMAX REC 
$AB 


XTRN CONVSAB_OUT_F 
XTRN CONYSAB- OUT"R 
XTRN SORSM STABLE, SORSGK_RECORD 
XTRN SORSGR ADDRESS SORSGK. INDEX 
TRN SYSSCREATE, SYSSCLO 


-PSECT _CONVSCODE.NOWRT, SHR, PIC,2 
OFFC 00000 INIT_SORT: 


. WORD fave Re Re, RB, R4,R5,R6,R7.RB,RI,R10,R11 
58 9000: CF MOVAB 
000° CF MOVAB SRMS PTR 
03 00006 a 5 BBC SIR _FLAGS+2, 1$ 
00006 7 5 BISB2 32 CONVSAB_FLAGS+2 
0 06A0 ‘&F mOVZWL #1656, BYTES 


BY 
BSBW gpnvescet_ vA 


5 ADDL2 &# 
FC COA 0 VL RO, snot RFA_BUFFER 
56 FC a7 00000600 = BF apoLs at # 33 ONVSGL RFA BUFFER, VM_POINTER 
0060 8F 00 6E ve #96, “$RMS_PTR 

60 er mOVW sich sans PTR 

2 A F mOVB «#80, SRM ms pt R+2 

4 A Ab MOVAB 80 (RO) RMS PTR+4 

A 8F MOVB » SRMS_PTR+10 
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C T VAX=11 CONVERT 
vou-0o0" INIT SORT 


0050 «8F 00 


000000006 


000000006 
05 
FO 
Fa 


3; Routine Size: 234 bytes, Routine Base: 
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WW000000M 
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-CONVSCODE + 0000 


soci G:AE:G)  YMGIt attest ye sre tea 


va POINTER, SRMS_PTR+12 
= (SP), #0, 780, SRMS_PTR 


pica 


PTR+40 
CON A mb SiR “$RMS _PTR+44 
ony DEE nase sis PTR*+48 
bel iF S PT 


#0, (§ pj "0, #68, SRMS_PTR 


At Rant 
Hip 


$ SRMS~PTR+32 

CONVSGL_ REA ~bur Fen SRMS_PTR+36 

ONVSAB-RFA-FAB, SRMS_PTR+6 

RECORDFAT. MONY $aB_RFA_FAB+31 

ROSIZ, CON ONVSAB RFA-FAB+54 

CONVSAB_RFA_FAB+ 

acONs CREA_ERR, CONVSAB_RFA_FAB+24 
VSSRMS_OPEN_ERROR 


af" SYSSCREATE 


SYSSCLOSE 
aise. - A CONVSAS RFA_FAB+S 
NAM+3, CONV_TAP_DESC 
REA “NAM+4, CONV TMPDESC+4 
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ZSBTTL ‘SORT_PRIMA 
GLOBAL ROUT INE LONUSSSORT -PRIMARY : CLSSORT_PRIMARY = 


ab a 


Functional Description: 


This routine will sort the input file, pointed to by in_fab, according 
to the primary key of the output file. 


Calling Sequence: 
CONVSSSORT_PRIMARY () 
Input ota 


Implicit Inputs: 


input and output rms blocks 


: Set the key descriptor to key = 0 (always in prologue) 
KEY_DESC = .CONVSAR_PROLOGUE; 


iF 
i 
i 
i 
? 
5 i 
$ i 
i 
3 i 
i 
0 i 
1 i 
§ i 
i 
i 
8 é Output | Perenaterss 
1 i 
§ : sapitcte outputs: 
4 0 i 
5 1 
GRE on 
8 344 i LOASPASe FILES 
9 Beee i SORT aye 
50 § i cOnv$ SEARCH_FILE 
51 i SET_UP_SORT ~ 
26 8 i sOREsORT MERGE 
5 49 i ND_SORT 
54 50 i 
55 51 i Routine Value: 
H Big yi 
5 5 i Success of random errors 
58 354 i 
59 $22 Side Effects: 
; a Open the rfa file if CONVSV_RFA is set 
ie 
0 
5 1 BEGIN 
4 DEF INE_KEY_DESC; 
5 LOCAL 
IN_DEVICE : BLOCK C 1,LONG J, 
RFA : LONG; 
4 


Routines Called: 
| 
| 
| 
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convent | 1B-Sep-1964 25:48:0)  yaKat1 BL fee-52 4.0274 


1 
PR 
: If the input file is open close it 
Theives FLAGS C CONVSV_IN } 
ereut DISC ONNECT RABECONVSAR, IN_RAB ); 
CONvaAB, FAB=C AB OLN BS; 
FLAGS ONvSV— i J = _CLEAR 


IN, sevice = .CONVSAB_IN_FAB C FABSL_DEV J; 
f the device char. are zero Koresess perminant files) or 


' 

i if fhe nput M le is not from disk o 

i it is @ record orented device leorntastes or 

i it's a network file or 

i it's a terminal (be reduntandt) or 

i there is more than one input file 

then we do a normal record sort otherwise we do a RFA sort to save time 
i 


F ( .IN_DEVICE EQLU 0 ) 
IN, DEVICE pe Vey Sap" OR 
-{N-P DEV OR 

1 on 

FIL bEvsve! u's R11) 

THEN 


QRRRUN LS Soe 


LEAR; 
RDERT = FABSC VAR; 


$12 = 0 


gs*= § 
4 


409 


RECORDFAT. = FABSC_FIX; 
es Z = 6; 


: Initialize the RMS blocks used in the sort 
INIT_SORT(); 
: Pass the file names ist input and output 


ienP_ DESC [ DSCSW_LENGTH J _= .CONVSAB_IN FAB C FABSB_FNS J; 
TEMP_DESC £ DSCSALPOINTER ) = .CONVSAB_IR_FAB C FABSC_FNA 3; 


SORSPASS_FILES( TEMP ~peSC 
CONV" 
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FIL L TYPE 
RECORDFAT, 
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FOP ); 
CONVSGB_CURRENT_FILE = 1; 
H Pass the rest of the input names 
UNTIL -CONVSGB_CURRENT_FILE GTR ( .CONVSGL_FILE_COUNT - 1 ) 
BEGIN 


! Parse and search for the A (This uses the IN_FAB and IN_NAM 
since they are not used again) 


RET_ON_ERROR( CONVSSSEARCH_FILE() ); 
Pass the file spec 


temp DESC { DSCSW_LENGTH J = .CONVSAB_IN FAB C FABSB_FNS J: 
TEMP=DESC £ DSCSALPOINTER J] = .CONVSAB_IR_FAB C FABSC_FNA J; 


SORSPASS_FILES( TEMP_DESC ); 
CONVSGB_CURRENT_FILE = .CONVSGB_CURRENT_FILE + 1 
END; 

: If useing rfa file as index file do an index sort else do record sort 

hes 

ae SET_UP_SORT( SORSGK_ADDRESS ) 
SET_UP_SORT( SORSGK_RECORD ); 

: Do the sort 

SORSSORT_MERGE (); 

SORSEND_SORT(); 

: Reopen the correct input files 

If RFA 

THE 
BEGIN 
: OPEN the input file and the new RFA file 
RET_ON_ERROR( CONVSSOPEN_IN() ); 


Connect the additional file containing the RFAs pointing th the real 
i 


SOPEN( FAB=CONVSAB_RFA_FAB ) 
SCONNECT( RAB=CONVSAB_RFA_ RAB ); 


CONVSAB_FLAGS C CONVSV_RFA J = _SET; 


Rs 
ESRcecHSUs GESAESED Wedel! etMesaddayt- Sats 
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490 
491 


49 
49 
494 
495 


DUP PPV DV IUPUI SUSPICION £ s oe 
SSLEARANVLSSSLS 


NOPUR) 2 2 
MO OONOUSWN—O 


8 
CONVSSORT VAX=11 CONVERT 18.56 -1984 23:48:01 Ax-11 Bliss-32 V4.0-7 
you~000 SORT_PRIMARY 127800=1 38% 93:98: CONV. SRCICONVSORT .B32 
ly 
ri $ Set access to the real input file to RFA 
48s CONVS$AB_IN_RAB C RABSB_RAC ] = RABSC_RFA 
491 END 
re ELSE 
t3e OPEN the sorted file as if it was the input file 
a3 BEGIN 
rt The real input RAB points to the RFA FAB 
0360 CONVS$AB_IN_RAB C RABSL_FAB ] = CONVSAB_RFA_FAB; 
0206 ! Open the RFA fab which is the new sorted input file NOTE: This is 
$202 not a file of RFAs an above 
0505 SOPEN( FAB=CONVSAB_RFA_FAB ); 
B206 SCONNECT( RAB=CONVSAB_IN_RAB ); 
b208 CONVSAB_FLAGS C CONVSV_SOR J] = _SET 
10 - 
B2i¢ : Since it only makes sence to sort once 
O14 CONVSGL_SORT = _CLEAR; 
0516 RETURN CONV$_SUCCESS 
0517 
0518 1 END; 
eEXTRN SYSSDISCONNECT, SYSSOPEN 
-EXTRN SYSSCONNECT 
52 DD 00000 meme * eae? 
58 0000G CF +4 000. MOVL CONV EAR PROLOGUE « KEY_DESC 
18 0000G CF 3 000 BLBC CONVSAB_FLAGS+2, 1$ 
00006 ff F ? PUSHAB an AB_IN_RAB 
000000006 00 1 FB CALLS #1, SYSSOISCOMNECT 
0000G CF 9OF 1 PUSHAB aad AB_IN_FAB 
000000006 00 1 €B 1 CALL “i, SYSSLOSE 
00006 gf 1 BA B1CB #1, none AB_FLAGS+2 
0 00006 44 9 1$ peor a AB_IN_FAB+64, IN_DEVICE 
12 0 : E 0 BS #5, IN DEVICE, 2$ 
OE 0 De 5 #i$, If DEVICE, 2$ 
0 é BLBS  IN_bEVICE, 2$ 
07 02 € Ss #2, {Nn DEVICE, 2$ 
01 00006 CF b CMPL CONV GC_FILE_COUNT, #1 
3 5 4 BLEQ 
D4 44 2%: CLAL RFA 
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CONVSSORT VAX=11 CONVERT $s Sep AX-11 Bliss-32 V4.0-74 Page 15 
vou SORT_PRIMARY 14-Sep- 71383 $3:48 ‘03 CONV. SRCICONVSORT .B32; ’ oF 
0000" CF 02 90 00046 MOVB #2, RECORDFMT : 04 
0000' F B4 0948 cLRW RECORDSIZ ; 408 
52 1 p 1 3$ MOVL #1, RFA : 0407 
9900" CF 1 4 MOVB ; RECORDFMT + 0408 
009° CF é B 9 Ovw ; RECORDSIZ + 0409 
FEBS CF FB 36 4$ ALLS #0, INIT_SORT + 0414 
9600" CF 9006 CF 38 6 MOVZBW CONVSAB_IN_FAB+52, TEMP_DESC + 0418 
000" CF 000G CF 006A VL CONVSABIIN-FAB+44, TEMP DESC +4 + 0419 
000° cr F 09 1 PUSHAB FOP + 0421 
— 7C t3 LRQ 0s =(SP) : 
7E ge 07 LRQ 0s =(SP : 
9000" CF 9F 00079 PUSHAB RECORDFMT : 
000" CF 9F 0007D PUSHAB FILETYPE : 
0000° CF 9F 008) PUSHAB CONV_TMP_DESC : 
0000" CF 9F 00085 PUSHAB. TE Est ; 
000099006 00 9 FB 00089 CALLS #9, SORSPA LES : 
00 CF 1 9 0090 vB #1, CONVSGR. S CRKENT FIL 3 0431 
50 0000G CF 9} C3 00095 5$ SUBL3 #1, ¢ NVSGL-FILE_COONT 3 0435 
50 00006 CF 8 9 FD 0098 CMV #0, & , CONVSGB_ CURRENT. POLE, RO ; 
00006 CF 06 rB OOA4 CALLS #0, CONVSSSEARCH_FILE + 0442 
4C 0 ' 00A9 BLBC TAT : 
0000" CF 00006 CF 9B 000A MOVZBW SONVSAS. IN_FAB+52, TEMP_DESC + 0446 
0000" CF 00006 CF DO 0008 MOVL  CONVSAB"IN-FAB+44, TEMP DESC+4 + 0447 
0000' CF 9F OOOBA PUSHAB TEMP DESC + 0449 
000000006 00 01 FB 0008 CALLS SORSPASS FILES ; 
00006 CF 96 000C INCB toivsen. CURRENT FILE + 0451 
CA 11 990¢9 BRB ; 
08 52 €9 000CB 6$: BLBC : 0457 
000000006 er Dp 20008 PUSHL FSORSGK ADDRESS : 0459 
000000006 ge pp 00D6 7$: PUSHL #SORSGK RECORD : 0461 
0000v 30 000DC 8$: BSBW  SET_UP_SORT : 
5E 04 CO O00DF ADDL2 #4, ; 
00000006 00 00 FB d0E2 CALLS 40, SORSSORT MERGE : 0465 
00000006 00 09 FB OOOE CALLS #0, S$ D_SORT > 0467 
2A 52 €9 SOFO ¢ ease + 0471 
00006 CF 00 FB 000F CALLS #0, CONVSSOPEN_IN + 0477 
48 50 : OOF 9S: ¢ Atus, 12$ ; 
0000' CF SF O00FB PUSHAB CONVSAB_RFA_FAB + 0482 
000000006 00 01 FB OOOFF CALLS #1, SYSSOPER : 
0000' CF 9F 001 PUSHAB CONVSAB_RFA RAB > 0483 
000090006 00 01 FB OO10A CALLS #1, $ SCONRECT : 
006 CF 1 8 111 BISB2 #16, CONVSAB plasseg > 0485 
00006 CF g + 116 nove Hee CONVSAB_IN_RAB+30 + 0489 
00006 CF 000' CF 9E 0011D 10$:  MOVAB CONVSAB_RFA_FAB, CONVSAB_IN_RAB+60 : 0500 
000" CF 9F 00124 PUSHAB CONVS$AB-RFAFAB : 0505 
000000006 00 01 FB 00128 CALLS #1, SYSSOPER ; 
00006 CF 9F OO12F PUS conv AB_IN_RAB > 0506 
000000006 00 1 cB 133 CALLS #1, SYSSCONNECT ; 
00006 CF 8 88 0013A BISB2 «#8. cONVEA FLAGS+2 : 0508 
00006 CF D4 001 i 11$: CLRL- = CONVSGL_SORT : 0514 
50 1 00 001 VL 8=o#t, R ; 16 
4 BA 0146 12$:  POPR #*M<R2> : 051 
5 0014 RSB ; 


voe~000, =—SORTLPRIRARY iEgeect94e GEsH8:0) ABad Bega: 8304 eet 


; Routine Size: 329 bytes, Routine Base: _CONVSCODE + OOEA 
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1_ CONVERT 1S-5e 1984 23:48:01 AX-11 Bliss-32 V4.0-74 
SECONDARY 127360-1 984 $3348 :08 CONV SRCJEONYSORT 03071 
ZSBTTL ‘SORT SECONDARY’ 
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GLOBAL ROUTINE CONVSSSORT_SECONDARY : CLSSORT_SECONDARY = 


i Functional Description: 


This routine will s 
key of the OUTPUT f 


Calling Sequence: 
CONVSSSORT_SECONDARY () 
Input Parameters: 
none 


t the OUTPUT file according to a specified 


or 
ile. 


Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 

Routines Called: 
INIT_SORT 
SORSPASS FILES 

U R 

SORSSORT_MERGE 
SORSEND_SORT 

Routine Value: 
Success or random errors 


Side Effects: 


Closes and reopen 


s the output file 
Closes the rfa file if it 


was open then opens it 


BEGIN 
DEF INE_KEY_DESC; 
: If the RFA file was open close it. The file will be used as output of sort. 
iF .CONVSAB_FLAGS C CONVSV_RFA J 
THEN SEGIN 
ERRCHK( SDISCONNECT( RAB=CONVSAB_RFA_RAB ),CONV$_BADLOGIC ); 
ERRCHK( $CLOSE( FAB=CONVSAB_RFA_FAB J,CONV$_BADLOGIC ); 
CONVSAB_FLAGS C CONVSV_RFA ] = _CLEAR; 
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OO NAUEWN OO OONAULSWN OO 


aS a 8 a a oh 


tattle 


: Also remove the entry in the directory 
SERASE( FAB=CONVSAB_RFA_FAB ) 
END; 
: Secondary key sorts are always tag sorts therefore we need a var. file 


RECORDFMT = FABSC_VAR; 
RECORDSIZ = 0; 


: Init sort if necc. and get a file name 

iNIT_SORT(); 

! To conserve space ect. use the RFA fab and rab therefore reset 

! the RFA rab so we can_do record 1/0 on it. We can use the rfa buffer 
since it is at least 512 bytes long and a key is only 256 + 6 byte rfa 
; Clear the B10 flag 

CONVSAB_RFA_RAB C RABSV_BIO J = _CLEAR; 

: Close the current output file so that SORT can get at it 


$DISCONNECT( RAB=CONVS$AB_OUT_RAB ); 
ERRCHK( $CLOSE( FAB=CONVSAB_OUT_FAB ),CONV$_BADLOGIC ); 


CONVSAB_FLAGS C CONVS$V_OUT J] = _CLEAR; 
: Pass the file names 


i To avoid some file name problems pass the expanded string of the 
output file 


TEMP_DESC [ DSC 
TEMP~DESC C£ DSC 
( 


SORSPASS_FILES 


W_LENGTH J = .CONVSAB_OUT_NAM C_NAMSB_RSL J; 
POINTER ) = .CONVSAB_OUT_NAM C NAMSC_RSA 3; 


EMP_DESC 


V"TMP_DESC, 
ETYPE 
OR 


: Get ready to do a index sort of the file 
SET_UP_SORT( SORSGK_INDEX ); 
: Start the sort and finish it 


SORSSORT_MERGE(); 
SORSEND_SORT(); 
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H ReOPEN the output file and the new RFA-INDEX file 


SoPEN( FAB=CONVS$AB_OUT_FAB ) 
SCONNECT( RAB= ONVSAB Out Rab ds 
CONVSAB_FLAGS V_ouT ) 


SOPEN( FAB=CONVSAB_RFA_FAB ) 
SCONNECT( RAB= =CONVSAB RFA Rab ); 
CONVSAB_FLAGS C CONVSV_RFA J = ‘SET; 


RETURN SS$_NORMAL 
END; 


EELEREIES ECS 
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~EXTRN SYSSERASE 


52 DD 00000 aaiiaaataae 
32 00006 CF 04 i 90002 BBC 4, CONVSAB_ FLAGS+2, 
0000" CF SF 0000 PUSHAB Cony V$AB_RFA-RAB 
000000006 99 1 000 CALLS #1, SY VSSDISCONNECT 
5 0 4 01 MOVL RO. STATUS 
50 2 E 0 1 BLBC = STATUS 
0000' CF 9F 0001 PUSHAB CONVSAB_RFA_FAB 
000000006 99 gi FB 001D CALLS #1, SYSSCLOS 
0 00 00024 MOVL RO, ST 
3F 38 9 0027 BLBC StAtUs $ 
00006 CF 10 8A 0002A BICB2 #16, C SONVSAB FLAGS+#2 
0000° cr 9F O002F PUSHAB CONVSAB_RFA_FAB 
000000006 00 1 FB 0033 CALLS He SYSSERASE 
0000' CF 02 90 OO003A 1S: MOVE #2. RECORDFMT 
0000" cf B4 00 F CLRW R €ordS12Z 
FD8S5=sCF 0 FB 00 43 CALL . INIT_SORT 
0000" CF 08 BA 0004 BICB * CONVSAB_RFA_RAB+S 
00006 CF 9F 0004D PUSHAB Conv $AB_OUT-R 
000000006 00 01 FB 00051 CALLS USYSSDISCONNECT 
00006 CF 9F 00058 PUSHAB cov AB_OUT FAB 
000000006 90 1 Ff O5¢ CALLS SYSSCLOSE 
‘ g DO 0006 MOVL RO’ STATUS 
1 E 066 BLBS STATU Us, $ 
000000006 BF DD 00069 2s: PUSHL #CONV BADLOGIC 
000000006 00 FB oF CALLS prbJESS TONAL 
MOV 
00 1 0007 BRW 
00006 CF > Ba 0007C 38: BICB2 CONVSAB B_FLAGS*2, 
000° CF 0006 CF 1 MOVZBW Conv V$AB_OUT TEMP_DESC 
000° CF 0006 CF CONVSAB= OUT“NAM+4 ; TEMP “DESC +4 
000° cr F F SHAB FOP 
— 7¢ CLRQ (Sp) 
7E 7C 0009 CLRQ = =(SP) 
' CF 9F 0009 PUSHAB RECORDFMT 
' CF OF $009B PUS FILETYPE 
* CF SE 0009F PUSHAB CONV. TMP_DESC 
' cf F a3 PUSHAB iene pest 
000000006 00 9 FB OOOA CALLS # SORSPASS_FILES 


o ~~ 
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000000006 8F A PUSHL #SORSGK INDEX 3 0627 
0000v BSBW SET _Ue_SoRr : 
G 05 6 §B OO0bA ths SORSSORT MERGE > 0631 
ce ee aC : Heys 
000000006 00 61 FR C CALLS it P “a gasoreR 3 
00006 CF 9F 000D PUSHAB CONVSAB_OUT RAB + 0637 

000090006 00 1 ce D CALL a. Syss¢ ECT ; 
G CF 2 8 D BISB2 #2. CONV AB_FLAGS+2 3 0638 
0000° cr F OO0E PUSHAB CONVSAB_RFA-FAB 3 0640 

000000006 00 1 §B O00E CALLS #1, sysop Q : 
000000006 00 sents 6 4 3 att #1 SYeSCONNECT _— 
00006 CF 10 8 BOF BISB2 #16, CONVSAB_FLAGS+2 + 0642 
0 01 DO O00FE VL. #1, R + 0644 
04 BA 0101 4$: OPR #*M<R2> + 0645 

5 00103 $B : 


3; Routine Size: 260 bytes, Routine Base: _CONVSCODE + 0233 
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oF sort ( S_TYPE ) : CL$JSB_REG_11 NOVALUE = 


aa 
ad 


Functional Description: 
Initializes the control blocks for the sort utility 


| 

Calling Sequence: 
SET_UP_SORT( sort _type ) 

| 

| 

} 


POEAAAAO 
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ERE 


Input Parameters: 


665 

$06 sort_type - an Be A code for the type of sort wanted. Valid 
oo8 SORSEK RECORD = Becerd e sere Sytner key from 

06 ce or multiple input tiles) 
6 SORSGK_ADDRESS = ange pooh (Primary key form disk) 
ore SORSGK_ INDEX = Index sort (Secondary keys onty) 
67 Implicit Inputs: 

674 

675 KEY_DESC 

676 

67 Output Parameters: 

$79 -_ 


Implicit Outputs: 
none 


Routines Called: 
SORSBEGIN_SORT 
Routine Value: 


SSSSESEERES 


Success of error from sor$begin_sort 


Be Se Se Se Ge Se Se Se Se Ge Se Ge Se Se Se Se Ge Se Ge Se Ge Fe Se Se Ge Se Ge Ge Ge Ge Ge Sse Ge Se Ge Ge Ss Se Se Se Se Ge SF Se Ge Se Ge Se Se Se Se Ge Se Se Ge Se Ge 
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691 Side Effects: 
69 none 
69 
pe == 
696 BEGIN 
$33 DEF INE_KEY_DESC; 
' 
4} hers parameters 
f 4 KEY BUFFER : VECTOR C 33,WORD J, 
fe SORT_OPTIONS : LONG, 
7 SORT TYPE : BYTE. 
207 WORK"FILES : BYTE: 


“4. gonvent 1E-sep-1984 7$:48:0)  YAKatt BLagc32 v4.0-74 Page 
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BIND 
SEGHEN TS = KEY. ~purFeR f 9 } : WORD, 

i SORT_KEY Y"BUFFER : BLOCKVECTOR C 8,4,WORD J; 
1 LOCAL 
KEY_TYPE; 
1 SORT_TYPE = 
1 WORK"FILES = CONVSEL wo 
} LRL ~ = .CONVSGW~ “RAK ‘até S12; 


: If the key allows dups do a stable sort 

= pKEv pest C KEYSV_DUPKEYS J 

gs SORT_OPTIONS = SORSM_STABLE 
SORT_OPTIONS = _CLEAR; 

: Get the number of segments 

SEGMENTS = .KEY_DESC C KEYSB_SEGMENTS J; 


: Find the key t from the key descriptor and set key_type to the 
: appropiate SonteS2 code ° ° ¥.tyP 


KEY_TYPE = ( SELECTONE .KEY_DESC C KEYSB_DATATYPE J OF 


a a a at 


CONAVNE WN @ODOONAW 
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KEYSC_STRING J DSCSK_DTYPE_T; 

KEYSC_SGNWORD DSCSK_DTYPE_wW; 

9 KEYSC_SGNLONG DSCSK_OTYPE_L; 

740 KE YSC_SGNQUAD DSCSK_DTYPE_Q; 

741 EYSC_UNSGNWORD DSCSK_DTYPE WU; 
ih) KE YSC_UNSGNLONG DSCSK_DTYPE_ 

74 KE YSC_UNSGNQUAD DSCSK~ =DIVPE. =0U; 
mee Fe bo teen J DSCSK_DTYPE_P 


= 
o 


: Load the sort parameter block with the right stuff for each segment 
incr I FROM 0 TO ( .SEGMENTS - 1 ) BY 1 


~ Sn i i Pe, ee ee ee i pe ee dee A 


sont KEYSW_TYPE J = .KEY_TYPE; 


YSWOORDER } = 0; 


KE 
TKE 
the offset to the first segment position Goperioter 
¥ Sesce rptor block the 44 is the offset to the s segnen 
Yeh e macros for these ever change, ie. KEYSW_ POSI TON. and 
E, the code offsets here must be changed! 


SORT_KEY “SSORTKE YSU. START ) = .KEY_DESC ( ( 28 + (.1#2) Oey WORD .v 33 
SORT-KEY *SORTKEYSU LENGH J = .KEY-DESC C ( 44 + 1. .ByTé WV J; 


! If th key fs focked decimal then sort wants the size in nibbles NOT 
counting the sign 
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: , teh -KEY_DESC C KEYSB_DATATYPE J] EQLU KEYSC_PACKED 
; 7 "sort _key £ L. SORTKEY Sy -fENGH. 2 
: 28 i TLKEY™ ORTKEYSW_LENGH ]* 2) = 1 
: 7 7 END; 
; i ; ! Begin the sort 
3 ! Be e sor 
i 768 hee 
3 > 06 SORSBEGIN_SORT( KEY_BUFFER, ! Key buffer address 
s 77 7 L ' Longest recore length 
; uy 0) ORT_OPTIONS, i Sor opti ons 
3 7 § " ' Input file size 
- F 77 " ! Comp. routine addr. 
; ree ae Shar } nay ge routine addr. 
3 ' Sor 
; 78¢ 77 WORK “Hues ); | Seubert werd Pitee 
3; 77 
3; «784 77 RETURN 
3; «785 77 
3; 786 0780 1 END; 
-PSECT _CONVSOWN,NOEXE, PIC,2 
00078 KEY_BUFFER: 
-BLKB i. 
OOOBA LRL: -BLKB 
QOOBC SORT “alle 4 
000CO SORT_TYPE: +i 1 
000C1 WORK FILES: 
-BLKB 1 
SEGMENTS= KEY_BUFFER 
SORT_KEY= KEY~BUFFER+2 
-PSECT _CONVSCODE,NOWRT, SHR, PIC,2 
007C SET_UP_SORT: 
PUSHR #°M<R2,R3,R4,R5,RO> 
0000° CF 18 MOVB $_TYPE. SORT. v6 
CF MOVB CONV WORK" F yoeK FILES 


SH: 8h 
1 


0000" CF 000000006 


i 
MOV FONVS GW7MAX_ REC SIZ, "LAL 
L #SOR “STABLE, SORT_OPTIONS 


0000° R RT OPTIONS 
0000° gf j (KEY_DESC), seems 
3 1 (KEYIDESC), R 


Roane momnm T 


MOVL #16, KEY_TYPE 
38: CMPB ORS, #1 
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3: Routine Size: 
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235 bytes, 


000000006 00 


Routine Base: 


tester) 
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0000’ 12$: 
0000°CF 20 
0000°CF4 
1C gt: 0 
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0000" 
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3; 787 781 #1 

3 444 ore) 0 END ELUDOM 
eEXTRN LIBSSIGNAL 

3 PSECT SUMMARY 

3 Name Bytes Attributes 

; _CONVSPLIT : S NOVEC,NOWRT, RD ,NOEXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

4 VSOWN 194 WNOVEC, WRT, RD +NOEXE. -NOSHR, LCL, REL, CON, PIC,ALIGN(2) 

3 “CONVSGLOBAL \26 NOVEC, WRT, RD ,NOEX XE.N OSHR, LCL, REL, CON, PIC,ALIGN(2) 

3 “CONVSCODE 105 NOVEC, *NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


: eocecesoe Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped ime 

; _$255$DUA28:(SYSLIBILIB.L32:1 18619 120 0 1000 00:01.8 
: 7$255$DUA28:CCONV. SRCICON VERT .L3251 165 27 16 17 00:00.2 
H COMMAND QUALIFIERS 

: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:CONVSORT/OBJ=0BJ$:CONVSORT MSRC$:CONVSORT/UPDATE=(ENHS$: CONVSORT) 
3: Size: 1058 3. + 370 data bytes 

3 Run Time: 222. 

3: Elapsed Time: 1:1 

3: Lines/CPU Min: eit 

3 Lexemes/CPU-Min: 2608 

; Memor ry Aue Used: 183 pages 

3; Compilation Complete 
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